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system IO.Controller — 1 00 1(1) 

/* BitString8 k 16 based on BiLString from Z.I 05 */ 
syntype Cgroup = Integer constants 0:3 endsyntype; 
syntype Cond = Integer constants 0:31 endsyntype; 
syntype CtxNum = Integer constants 0:7 endsyntype; 
syntype EventNum = Integer constants 0:7 endsyntype ; 
syntype InstAddr = Integer constants 0:65535 endsyntype; 
syntype Instruction = BitString 1 6 endsyntype ; 
syntype Offset = Integer constants -128:127 endsyntype; 
syntype Vbase = Integer constants 0:1023 endsyntype; 

/* Exported from ContexLController */ 
remote asleep, csw, idle Boolean nodelay ; 
remote context CtxNum nodelay ; /* running context */ 
remote events BitString 8 nodelay ; /* C-group 01 */ 
remote nctx CtxNum nodelay ; /* next context */ 
remote mask BitString 8 nodelay ; /* Event Mask reg */ 
/* Exported from Data_Path_and_Interface_Resources 
remote slice Natural nodelay ; /* inst cycles per bg slice 
remote ien Boolean nodelay ; /* true for execute cycles * 




signal 

AckEv(CtxNum,EventNum), 
AckInst(EventNum), 
BcInst(Cond,Offset), ClearCy(CtxNum) t 
ClearFG, CSaddr(InstAddr), 
CSdata(Instruction), CsLoad(CtxNum), 
CsStore(CtxNum), 
Event(CtxNum,EventNum), 
ExtEvent(CtxNum,EventNum), HfOsc, 
HwReset, InitInst(CtxNum) t 
InitSeq(CtxNum), LfOsc, 
LoadMask(BitString8), Mr, Mf, 
Qr, Of, Reset, SetCy(CtxNum), 
SetFG, SignallnstfCtxNum.EventNum), 
SkpInst(Cgroup,BitString8), Sleep, 
VecInst(Vbase), Wait, Wake ; 
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process Event_ Synchronizer \ 50 



signal EndMark, ResetMark ; |\ 
signalset EndMark, ExtEvent, 
Mr, Reset, ResetMark ; 

del cf CtxNum ; 
del ef EventNum ; 



218- 



Event 




/* This process synchronizes events originating outside of 
the DISC core to the leading edge of Mr. The assertion of 
each external event is indicated by an ExtEvent signal. The 
parameters of the signal provide the target context and 
event numbers. 

ExtEvent signals are saved in the process* input queue 
until receipt of signal Mr from the ClocLGenerator block. 
The end of the input queue is marked and all ExtEvent 
signals queued ahead of the EndMark are copied to Event 
signals and sent to the Event_Prioritizer process, where 
they are handled at the next Mr. */ 
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FIG. 7A1 



process EvenLPrioritizer 1 52 



1(4) 



del act BitString8 ; 
del c#, curBg CtxNum ; 
del e# EventNum ; 
del evMask, evStatus 

Array(CtxNum, BitString8) ; 
del fg BitString8 ; 
del k, I, prev CtxNum ; 
del sliceCount Natural ; 
del val BitString8 ; 
del waited BitSlring 8 ; 



250 



signal ResetMark ; |\ 

signalset 
Acklnst, ClearFG, 
Event, Initlnst, 
LoadMask, 
Mr, Mf, Qr, Reset, 
ResetMark, SetFG, 
Signallnst, Sleep, 
Wait, Wake ; 



251 



imported ien Boolean ; t\ 
imported slice Natural ; 

del exported asleep, csw, idle Boolean 

del exported ctx as context CtxNum ; 

del exported events, mask BitString8 ; 

del exported nctx CtxNum ; 



-252 



/* This process handles signals that alter event state, 
context activation state, or execution state (sleep, idle). 

While Running, events, Signal Instructions, and loading the 
Event Mask are handled at once; while Ack, Init, Sleep, 
Wait, and Set/Clear FG are held on the process input 
queue until Mr. At Mr of execute (ien=1) cycles, any 
queued instruction (max=1 /cycle) is processed, the context 
number, event flags (C-group l) and event mask values 
are updated to reflect a possible context switch, and the 
slice count is decremented if the running context is in 
background. At Qr the activity flags are updated, then the 
highest priority active (fg) context, or current/next (bg) 
context is selected for execution at the next Mr, 
performing a context switch or going idle, starting at Mf, 
as appropriate, */ 
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r 



PROM FIG. 7A1 
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process Event_Prioritizer — — 1 52 
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c# := 0 x 
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evStatus(cf)) = 0 
then act(c#) 
else 1 fi 
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FIG. 1 3 
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